From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Wed, 24 Dec 2003 23:18:10 +0000 (+0000)
Subject: (vc-dired-purge): Avoid error from `kill-line'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24786
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6f09c7931fa73c46b74ab0b1f8e1766bc7dd0588;p=emacs.git

(vc-dired-purge): Avoid error from `kill-line'.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 4ee27391003..b015d56c87f 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.359 2003/07/06 19:08:13 jpw Exp $
+;; $Id: vc.el,v 1.360 2003/09/01 15:45:17 miles Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2144,7 +2144,7 @@ Called by dired after any portion of a vc-dired buffer has been read in."
 	;; We cannot remove the top level directory.
 	;; Just make it look a little nicer.
 	(forward-line 1)
-	(kill-line)
+	(or (eobp) (kill-line))
 	(if (not (dired-next-subdir 1 t))
 	    (goto-char (point-max))))))
   (goto-char (point-min)))